home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Hallo6a.cpp < prev    next >
C/C++ Source or Header  |  1998-12-28  |  3KB  |  82 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Hallo6a.h"
  6. //---------------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8. TForm1 *Form1;
  9. char *Diagnose;
  10. char *Titel;
  11. bool Wahl[3];
  12. String Bereich[3];
  13.  
  14. //---------------------------------------------------------------------------
  15. __fastcall TForm1::TForm1(TComponent* Owner)
  16.     : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  20. void __fastcall TForm1::Button1Click(TObject *Sender)
  21. {
  22.   String Text = "Diagnose";
  23.   for (int Nr=0; Nr<3; Nr++)
  24.     if (Wahl[Nr]) Text = Text + Bereich[Nr];
  25.   Titel =  Text.c_str();
  26.   Application->MessageBox (Diagnose, Titel, 4+64);
  27. }
  28. //---------------------------------------------------------------------------
  29. void __fastcall TForm1::FormCreate(TObject *Sender)
  30. {
  31.   Bereich[0] = " fⁿr Seele ";
  32.   Bereich[1] = " fⁿr Geist ";
  33.   Bereich[2] = " fⁿr K÷rper ";
  34.   for (int Nr=0; Nr<3; Nr++) Wahl[Nr] = false;
  35. }
  36. //---------------------------------------------------------------------------
  37. void __fastcall TForm1::CheckBox1Click(TObject *Sender)
  38. {
  39.   Wahl[0] = CheckBox1->Checked;
  40. }
  41. //---------------------------------------------------------------------------
  42. void __fastcall TForm1::CheckBox2Click(TObject *Sender)
  43. {
  44.   Wahl[1] = CheckBox2->Checked;
  45. }
  46. //---------------------------------------------------------------------------
  47. void __fastcall TForm1::CheckBox3Click(TObject *Sender)
  48. {
  49.   Wahl[2] = CheckBox3->Checked;
  50. }
  51. //---------------------------------------------------------------------------
  52. void __fastcall TForm1::RadioButton1Click(TObject *Sender)
  53. {
  54.   Diagnose = "Das ist ja toll!";
  55. }
  56. //---------------------------------------------------------------------------
  57. void __fastcall TForm1::RadioButton2Click(TObject *Sender)
  58. {
  59.   Diagnose ="Das freut mich!";
  60. }
  61. //---------------------------------------------------------------------------
  62. void __fastcall TForm1::RadioButton3Click(TObject *Sender)
  63. {
  64.   Diagnose ="Das geht ja noch!";
  65. }
  66. //---------------------------------------------------------------------------
  67. void __fastcall TForm1::RadioButton4Click(TObject *Sender)
  68. {
  69.   Diagnose ="Das tut mir leid!";
  70. }
  71. //---------------------------------------------------------------------------
  72. void __fastcall TForm1::RadioButton5Click(TObject *Sender)
  73. {
  74.   Diagnose ="Das ist ja schlimm!";
  75. }
  76. //---------------------------------------------------------------------------
  77. void __fastcall TForm1::RadioButton6Click(TObject *Sender)
  78. {
  79.   Diagnose ="Wenn du meinst...";
  80. }
  81. //---------------------------------------------------------------------------
  82.